home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / vdtj122b.zip / VCSD.ZIP / COMPILE.VDM < prev    next >
Text File  |  1992-11-30  |  17KB  |  976 lines
  1. !    Compiler Support Macro - Version 1.57
  2. !        Last Change: 10/30/92
  3. !
  4. !    To save disk space, all comments have been stripped. However, the
  5. !    COMPILE.VDM supplied with VEDIT and VEDIT PLUS is fully commented.
  6. !
  7. ES 7 1
  8. ES 8 2
  9. ES 9 1
  10. ES 10 1
  11. (Q81==302111)[ JP"START" ]
  12.  
  13. .waXS(92)
  14. +7YEA
  15. .bnXS(76)
  16. 0XS(101)
  17. "F XS(102)
  18. 20[ (.rt(#102)==2)[ 1XA(101) ] 1XA(102) ]
  19. Q101[
  20.     YA YEN
  21.     YT"Registers F - Y may contain files. Do you want to save them?" YEN
  22.     YT"[S]ave files; [A]bandon files; [C]ancel macro : "
  23.     [ XK(100)"" Q100&95XS(100) (Q100=="S | Q100=="A | Q100=="C)JL YA ] Q100YD
  24.  
  25.     (Q100=="C)[ JO ]
  26.     "F XS(102)
  27.     20[
  28.     (.rt(#102)==2)[
  29.         EE(#102)
  30.         ((Q100=="S) & .of)[ EY ]
  31.         @EQY
  32.         ]
  33.     1XA(102)
  34.     ]
  35.     ]
  36.  
  37. !START!
  38. (Q81<>302110 & Q81<>302111)[
  39.     0XS(99)
  40.     0XS(93)
  41.     0XS(82)
  42.     1XS(83)
  43.     302110XS(81)
  44.     -1XS(80)
  45.     0XS(79)
  46.     RE(k)
  47.     RI(t)"Error in COMPILE.CNF parameter: "
  48.     +RL(u) compile.cnf
  49.     EE(u)
  50.  
  51.     B :N"SUPPORTPATH="
  52.     .es[ RI(+t)"SUPPORTPATH" JP"CNFERROR" ]
  53.     .pXBB :$N"|{|B,|>}" .es[ JP"CNFERROR" ]
  54.     -(.n+1)C
  55.     .os<4[ $EM"\" .er[ C I"\" ]
  56.     ][ $EM"/" .er[ C I"/" ]
  57.         ]
  58.     .bb,.pRC(p) -XBB
  59.     .ed[ RE(p) ]
  60.  
  61.     0XS(101)
  62.     "NXS(100)
  63.     (.sd==3)[
  64.     B :N"COLORDISPLAY=" .cXS(100)
  65.     .es[ 1XA(101) RI(+t)"COLORDISPLAY" ]
  66.     (Q100=="?)[
  67.         YEC YEN
  68.         YT"Do you have a Color display on your computer (Y/N)? "
  69.         [ XK(100)"" Q100&95XS(100) (Q100=="Y | Q100=="N)JL YA ] Q100YD
  70.         ]
  71.     (Q100=="N)[ YYM ]
  72.     ]
  73.  
  74.     (Q100=="Y | .ed==0)[
  75.     B :N"INCLUDECOLOR=" .vXS(87) .es[ 1XA(101) RI(+t)"INCLUDECOLOR" ]
  76.     B :N"OPTIONSCOLOR=" .vXS(88) .es[ 1XA(101) RI(+t)"OPTIONSCOLOR" ]
  77.     B :N"HELPCOLOR="    .vXS(89) .es[ 1XA(101) RI(+t)"HELPCOLOR" ]
  78.     B :N"ERRORCOLOR="   .vXS(90) .es[ 1XA(101) RI(+t)"ERRORCOLOR" ]
  79.     B :N"MENUCOLOR="    .vXS(91) .es[ 1XA(101) RI(+t)"MENUCOLOR" ]
  80.     +Q92YEA
  81.     ][
  82.     7 XS(87)
  83.     7 XS(88)
  84.     112 XS(89)
  85.     112 XS(90)
  86.     15 XS(91)
  87.     ]
  88.  
  89.     B :N"DEFCOMPILE="
  90.     .es[ RI(+t)"DEFCOMPILE" JP"CNFERROR" ]
  91.     .pXBB :$N"|>" .es[ JP"CNFERROR" ]
  92.     .bb,.pRC(r) -XBB
  93.     B :N"DEFLINK="
  94.     .es[ RI(+t)"DEFLINK" JP"CNFERROR" ]
  95.     .pXBB :$N"|>" .es[ JP"CNFERROR" ]
  96.     .bb,.pRC(l) -XBB
  97.     B :N"DEFDEBUG="
  98.     .es[ RI(+t)"DEFDEBUG" JP"CNFERROR" ]
  99.     .pXBB :$N"|>" .es[ JP"CNFERROR" ]
  100.     .bb,.pRC(o) -XBB
  101.     B :N"DEFMAKE="
  102.     .es[ RI(+t)"DEFMAKE" JP"CNFERROR" ]
  103.     .pXBB :$N"|>" .es[ JP"CNFERROR" ]
  104.     .bb,.pRC(m) -XBB
  105.     EQY
  106.     :ED compile.vco
  107.     (.rv>0)[
  108.     RL(u) compile.vco
  109.     EE(u)
  110.     B $EM"|W" .pXBB $N"|>"
  111.     (.p>.bb)[ .bb,.pRC(r) ]
  112.     L .eof_JP"START-1"
  113.     $EM"|W" .pXBB $N"|>"
  114.     (.p>.bb)[ .bb,.pRC(l) ]
  115.     L .eof_JP"START-1"
  116.     $EM"|W" .pXBB $N"|>"
  117.     (.p>.bb)[ .bb,.pRC(o) ]
  118.     L .eof_JP"START-1"
  119.     $EM"|W" .pXBB $N"|>"
  120.     (.p>.bb)[ .bb,.pRC(m) ]
  121.     ]
  122.  
  123. !START-1!
  124.  
  125.     RR(r,j)
  126.     EE(v) B#K RG(r) B
  127.     $N"|{|B,|>}" -.nC
  128.     .pXBB
  129.     .os<4[ -$N"|{|<,:,\}" .nC
  130.     ][ -$N"|{|<,/}" .nC
  131.     ]
  132.     .p,.bbRC(q)
  133.     EE(u)
  134.     :ED |Rp|Rq.vcs
  135.     ~.rv[ RI(t)"Support not found" JP"CNFERROR"]
  136.     EQY
  137.     ]
  138.  
  139. EE(#76)
  140.  
  141. (Q81==302110)[
  142.     302111XS(81)
  143.     +RA(z)
  144.     JO
  145.     ]
  146.  
  147. (Q99==1)[ JP"OP-O-E-1" ]
  148.  
  149. Q82>0[
  150.     YEN XK(100)"BREAKOUT! - Press any key to continue..."
  151.     Q100=24[ -RA JO ]
  152.     0XS(79)
  153.     ]
  154.  
  155. !MAIN!
  156. +RA(z)
  157. EE(#76)
  158. ES 8 2
  159. ES 5 1
  160. 1RPROT(f,z)
  161. (Q79>0)[ JP"MAKE_LOOP" ]
  162.  
  163. 0XS(98)
  164. 1XS(82)
  165. 22085YYE
  166. .rt(g)=2[ EE(g) EQY ]
  167. .rt(h)=2[ EE(h) EQY ]
  168. .rt(n)=2[ EE(n) EQY ]
  169. .rt(u)=2[ EE(u) EQY ]
  170. .rt(v)=2[ EE(v) EQY ]
  171. RE(t)
  172. EE(#76)
  173. (Q80>-1)[
  174.     :EZY
  175.     .u(w)>0[ EB |Rw Q80EJ .c=10[ -1c ] ]
  176.     -1XS(80)
  177.     ]
  178.  
  179. RE(w)
  180. .of[
  181.     YR(w) +:EW -YR
  182.     ]
  183. Q83>0[
  184.     0XS(83)
  185.     +RL(y) |Rp|Rq.vcs
  186.     RR(j,r)
  187.     ]
  188. (Q86==302110)[
  189.     0XS(86)
  190.     1XS(93)
  191.     JP"OPTION-R"
  192.     ]
  193.  
  194. YWI
  195. (.wb=2)[ 0YWB(h) 1 ][ YWB(h) 1 ]
  196. YWR(m) 45
  197. -V
  198.  
  199. YWS(h) Q89YEA YEC YT" Select desired option"
  200. YWS(m) Q91YEA YEC
  201. YT"       COMPILER SUPPORT Ver. 1.57"
  202. YEN YT"---------------------------------------------"
  203. YEN YT" Compiler Name.." 0XS(96) M(y)
  204. YEN YT" Compiler......." RD(r)
  205. YEN YT" Linker........." RD(l)
  206. YEN YT" Debugger......." RD(o)
  207. YEN YT" Make..........." RD(m)
  208. YEN YT" Project File..." RD(w)
  209. YEN YT" Default Ext...." 4XS(96) M(y) RT(v)
  210. YEN YT"
  211. [E].Edit current file [S].Select compiler
  212. [N].Edit new file     [O].Change options
  213. [C].Run Compiler      [G].Goto OS (shell)
  214. [L].Run Linker        [R].Reexamine errors
  215. [D].Run Debugger      [Q].Quit support
  216. [M].Run Make          [X].Exit VEDIT
  217.  
  218.  Enter Letter: "
  219.  
  220. [
  221.     :XK(84)//
  222.     Q84&95XS(84) Q84=26[ JN ]
  223.     EE(v) B #K Q84EI B
  224.     $N"|{E,N,C,L,D,M,S,O,G,R,Q,X,}"
  225.     ~.es[ JL ]
  226.     YA
  227. ]
  228. -1T
  229. YEN
  230. JP"OPTION-|Rv"
  231.  
  232. !CONTBEEP!
  233. YA
  234. !CONTMAIN!
  235. YEN XK(84)" Press any key to continue..." YEN
  236. JP"MAIN"
  237.  
  238. !OPTION-!
  239. -RA JO
  240.  
  241. !OPTION-E!
  242. 12XS(98)
  243. YWD(m)
  244. YWS(h) Q89YEA YEC
  245. YT"Edit file; press ESC to return to Compiler Support menu"
  246. 0XS(82) EE(#76) V
  247. .bnXS(76)
  248. JP"START"
  249.  
  250. !OPTION-N!
  251. 13XS(98)
  252. 0XS(93)
  253. EE(#76)
  254. .oa[
  255.     YT" [S]ave current file; [A]bandon file : "
  256.     [ XK(100)"" Q100&95XS(100) (Q100=="S | Q100=="A | Q100=="C)JL YA ] Q100YD
  257.     Q100="C[ JP"MAIN" ]
  258.     Q100="S[ :EY ]
  259.     Q100="A[ EZY ]
  260.     ][
  261.     EZY
  262.     ]
  263.  
  264. EE(v) EQY EE(#76) :RQ(v)" File: "
  265. ~.u(v)[ 4XS(96) M(y) ]
  266. RF(v) |Rv
  267. ~.u(v)[ JP"MAIN" ]
  268. RR(v,w)
  269. EE(#76) EB|Rw
  270. JP"MAIN"
  271.  
  272. !OPTION-G!
  273. (.os<4)[
  274.     :RQ(i)" DOS Command: "
  275.     ][
  276.     :RQ(i)" Shell Command: "
  277.     ]
  278. .u(i)>0[
  279.     YWS(@) YEB -YWZ
  280.     @OC"|Ri"
  281.     ][
  282.     YWI    .wl-1YEV
  283.     OS
  284.     ]
  285. JP"MAIN"
  286.  
  287. !OPTION-X!
  288. -:EK |Rkvcs.tmp
  289. YWI
  290. EE(#76) .oa[
  291.     YA YEN
  292.     YT"The current file has not been saved! Do you want to save it?" 2YEN
  293.     YT"[S]ave file; [A]bandon file; [C]ancel, return to main menu : "
  294.     [ XK(100)"" Q100&95XS(100) (Q100=="S | Q100=="A | Q100=="C)JL YA ] Q100YD
  295.  
  296.     Q100="C[ JP"MAIN" ]
  297.     Q100="S[ EY ]
  298.     Q100="A[ EQY ]
  299.     ]
  300.  
  301. (.rt(a)==2 | .rt(b)==2 | .rt(c)==2 | .rt(d)==2 | .rt(e)==2) [
  302.     YA YEN
  303.     YT"Registers A - E may contain files. Do you want to save them?" 2YEN
  304.     YT"[S]ave files; [A]bandon files; [C]ancel, return to main menu : "
  305.     [ XK(100)"" Q100&95XS(100) (Q100=="S | Q100=="A | Q100=="C)JL YA ] Q100YD
  306.  
  307.     Q100="C[ JP"MAIN" ]
  308.     .wl-2YEV YT"VEDIT - Compiler Support" YEN
  309.     Q100="S[ EXA ]
  310.     Q100="A[ EQAY ]
  311.     ]
  312.  
  313. .wl-2YEV YT"VEDIT - Compiler Support" YEN
  314. EQAY
  315.  
  316. !OPTION-Q!
  317. YWD(m) YWD(h)
  318. -:EK |Rkvcs.tmp
  319. EE(s) EQY EE(v) EQY EE(#76)
  320. ES 8 0
  321. 0XS(81)
  322. 0RPROT(f,z)
  323. 0YYE
  324. -RA
  325. RI(y)"EE(z) EQY EE(#76) +JO"
  326. RJ(y)
  327.  
  328. !OPTION-R!
  329. 25XS(98)
  330. Q93=0[
  331.     YEN YT" Errors unavailable!" YEN
  332.     JP"CONTMAIN"
  333. ]
  334. YWD(m)
  335. JP"OP-C-COMM"
  336.  
  337. !OPTION-S!
  338. 16XS(98)
  339. EE(v) EQY EE(#76)
  340. .wl-1YEV YEL
  341. :RQ(v)" (Do not include path or .VCS extension)
  342.  Compiler: "
  343. EE(u) B #K RG(v) B
  344. .os<4[ $N"|{:,\,.}"
  345.     ][ $N"|{/,.}"
  346.     ]
  347. ~.es[
  348.     YEN YT"Paths and extensions not allowed!"
  349.     JP"CONTBEEP"
  350.     ]
  351. ~.u(v)[ RI(v)"*" ]
  352. RF(v) |Rp|Rv.vcs
  353. ~.u(v)[ JP"MAIN" ]
  354. :ED |Rv
  355. ~.rv[
  356.     YWS(m) YEN YT" Specified compiler not found!"
  357.     JP"CONTBEEP"
  358.     ]
  359. EE(v) B
  360. $N"|{ ,.,|>}" -.nC #D
  361. Z
  362. .os<4[ -$N"|{|<,:,\}"
  363.     ][ -$N"|{|<,/}"
  364.     ]
  365. .nC 0K
  366. EE(#76)
  367. RR(v,q)
  368. :ED |Rq.vco
  369. ~.rv[
  370.     :ED |Rp|Rq.vco
  371.     ~.rv[ RI(r)"|Rq -proj.ext"
  372.     ][
  373.     +RL(r) |Rp|Rq.vco
  374.     ]
  375.     ][
  376.     +RL(r) |Rq.vco
  377.     ]
  378. EE(u) B #K
  379. RG(r)
  380. B .pXBB N"|>" .bb,.pRC(r)
  381. L .eof_JP"OPTION-S-1"
  382. $EM"|W" .pXBB $N"|>"
  383. (.p>.bb)[ .bb,.pRC(l) ]
  384. L .eof_JP"OPTION-S-1"
  385. $EM"|W" .pXBB $N"|>"
  386. (.p>.bb)[ .bb,.pRC(o) ]
  387. L .eof_JP"OPTION-S-1"
  388. $EM"|W" .pXBB $N"|>"
  389. (.p>.bb)[ .bb,.pRC(m) ]
  390.  
  391. !OPTION-S-1!
  392. -XBB
  393. RR(r,j)
  394. 1XS(83)
  395. 0XS(93)
  396. JP"MAIN"
  397.  
  398. !OPTION-O!
  399. 20XS(98)
  400. 0XS(99)
  401. YWD(o)
  402. YWS(m) Q91YEA YEC
  403. YEN YT"           Change Options Sub-menu"
  404. YEN YT"---------------------------------------------" YEN
  405. YEN YT" Compiler Name.." 0XS(96) M(y)
  406. YEN YT" Compiler......." RD(r)
  407. YEN YT" Linker........." RD(l)
  408. YEN YT" Debugger......." RD(o)
  409. YEN YT" Make..........." RD(m)
  410. YT"
  411.  
  412. [C]...Compiler command
  413. [L]...Linker command
  414. [D]...Debugger command
  415. [M]...Make command
  416. [X]...Exit Options Menu
  417.  
  418.  Enter Letter: "
  419. [
  420.     :XK(84)//
  421.     Q84&95XS(84)
  422.     Q84="C [ 21XS(98) JP/OP-O/ ]
  423.     Q84="M [ 22XS(98) JP/OP-O/ ]
  424.     Q84="D [ 23XS(98) JP/OP-O/ ]
  425.     Q84="L [ 24XS(98) JP/OP-O/ ]
  426.     Q84="X [ JP/MAIN/ ]
  427.     YA
  428. ]
  429.  
  430. !OP-O!
  431. YWD(m)
  432. YWB(o) 1
  433. YWR(m) 45
  434.  
  435. !OP-O-1!
  436. YWS(o) Q88YEA YEC
  437. YT" Current command: "
  438. Q98=21[ RT(r) ]
  439. Q98=22[ RT(m) ]
  440. Q98=23[ RT(o) ]
  441. Q98=24[ RT(l) ]
  442. YWS(h) Q89YEA YEC YT" Select desired option"
  443. EE(#76) -V
  444. YWS(m) Q91YEA YEC
  445.  
  446. YEN
  447. Q98=21[ YT"     Change Compiler command" ]
  448. Q98=22[ YT"     Change Make command" ]
  449. Q98=23[ YT"     Change Debugger command" ]
  450. Q98=24[ YT"     Change Linker command" ]
  451. YEN YT"---------------------------------------------"
  452. 2YEN YT" Compiler Name: " 0XS(96) M(y)
  453.  
  454. YT"
  455.  
  456. [E]...Edit command
  457. [H]...Help with command options
  458. [L]...Load command
  459. [S]...Save command
  460. [X]...Exit Command Menu
  461.  
  462.  Enter Letter: "
  463.  
  464. [
  465.     :XK(84)//
  466.     Q84&95XS(84)
  467.     Q84="E [ JP/OP-O-E/ ]
  468.     Q84="H [ JP/OP-O-H/ ]
  469.     Q84="L [ JP/OP-O-L/ ]
  470.     Q84="S [ JP/OP-O-S/ ]
  471.     Q84="X [ JP/OPTION-O/ ]
  472.     YA
  473. ]
  474.  
  475. !OP-O-E!
  476. 1XS(99)
  477. YWS(h) Q89YEA YEC
  478. YT"Press ESC when done, -PROJ.EXT=place project file -PROJ=project no ext."
  479. YWS(o) YEC
  480. EE(v) B #K YI
  481. Q98=21[ RT(r) ]
  482. Q98=22[ RT(m) ]
  483. Q98=23[ RT(o) ]
  484. Q98=24[ RT(l) ]
  485. -YI B
  486. 0XS(82) V
  487.  
  488. !OP-O-E-1!
  489. 0XS(99)
  490. EE(v)
  491. B #:$S/|L/ / B
  492. Q98=21[ 1RC(r) ]
  493. Q98=22[ 1RC(m) ]
  494. Q98=23[ 1RC(o) ]
  495. Q98=24[ 1RC(l) ]
  496. EQY EE(#76)
  497. JP"OP-O-1"
  498.  
  499. !OP-O-H!
  500. 2XS(99)
  501. EE(u) B #K
  502. Q98=21[ RG(r) ]
  503. Q98=22[ RG(m) ]
  504. Q98=23[ RG(o) ]
  505. Q98=24[ RG(l) ]
  506. B $N"|{|B,|>}" -.nC
  507. #K
  508. .os<4[ -$N"|{|<,:,\}" .nC
  509.     ][ -$N"|{|<,/}" .nC
  510.     ]
  511. -#K
  512. EE(#76)
  513.  
  514. :ED |Rp|Ru.vch
  515. ~.rv[
  516.     YEN YT" No help available!"
  517.     YEN YT" Could not find the file: "
  518.     RT(p) RT(u) .os<4[ YT".VCH" ][ YT".vch" ] YEN
  519.     :XK(100)" Press any key to continue..."
  520.     ][
  521.     YWZ YEC
  522.     EE(v) EQY EE(#76)
  523.     RL(v) |Rp|Ru.vch
  524.     327RD(v)
  525.     YWS(o)
  526.     ]
  527. JP"OP-O-1"
  528.  
  529. !OP-O-L!
  530. 3XS(99)
  531. EE(v) EQY EE(#76)
  532. 0YYE
  533. :RQ(v)"
  534.  (Do not include .VCO extension)
  535.  File: "
  536. EE(u) B #K RG(v) B N"."
  537. ~.es[ JP"OP-O-ERR" ]
  538. 22085YYE
  539. ~.u(v)[ RI(v)"*" ]
  540. RI(+v)".vco"
  541. EE(u) B #K RG(v) B $N"|{*,?}"
  542. .es[
  543.     :ED |Rv
  544.     ~.rv[
  545.     B
  546.     .os<4[ $N"|{\,:}"
  547.         ][ $N"/"
  548.         ]
  549.     .es[ RR(p,-v) ]
  550.     ]
  551.     JP"OP-O-L-1"
  552.     ]
  553. :ED |Rv
  554. .rv>0[
  555.     YWS(m) :XK(84)"
  556.  Load from current directory? (Y/N) "
  557.     (Q84&95)<>"Y[ RR(p,-v) ]
  558.     ][
  559.     RR(p,-v)
  560.     ]
  561. RF(v) |Rv
  562. ~.u(v)[ JP"OP-O-1" ]
  563.  
  564. !OP-O-L-1!
  565. :ED |Rv
  566. ~.rv[
  567.     YA
  568.     YWS(m) :XK(100)"
  569.  Options file not found!
  570.  Press any key to continue..."
  571.     ][
  572.     EE(u) EQY EE(#76)
  573.     RL(u) |Rv
  574.     EE(u) B #:$S/|L/ / B
  575.     Q98=21[ 1RC(r) ]
  576.     Q98=22[ 1RC(m) ]
  577.     Q98=23[ 1RC(o) ]
  578.     Q98=24[ 1RC(l) ]
  579.     ]
  580. JP"OP-O-1"
  581.  
  582. !OP-O-S!
  583. 4XS(99)
  584. EE(v) EQY EE(#76)
  585. :RQ(v)"
  586.  (Do not include .VCO extension)
  587.  File: "
  588. EE(u) B #K RG(v) B N"."
  589. ~.es[ JP"OP-O-ERR" ]
  590. ~.u(v)[ RI(v)"*" ]
  591. EE(u) B #K RG(v) B
  592. .os<4[ $N"|{\,:}" ][ $N"/" ]
  593. .es[
  594.     YWS(m) :XK(84)"
  595.  Save in current directory? (Y/N) "
  596.     (Q84&95)<>"Y[ RR(p,-v) ]
  597.     ]
  598. RF(v) |Rv.vco
  599. ~.u(v)[ JP"OP-O-1" ]
  600. :ED |Rv
  601. .rv[
  602.     YWS(m) :XK(84)"
  603.  File already exists!
  604.  Overwrite (Y/N)?...."
  605.     (Q84&95)<>"Y[ JP"OP-O-1" ]
  606.     ]
  607. Q98=21[ -RS(r) |Rv ]
  608. Q98=22[ -RS(m) |Rv ]
  609. Q98=23[ -RS(o) |Rv ]
  610. Q98=24[ -RS(l) |Rv ]
  611. JP"OP-O-1"
  612.  
  613. !OP-O-ERR!
  614. YA
  615. XK(100)"
  616.  Extensions not allowed!
  617.  Press any key to continue..."
  618. JP"OP-O-1"
  619.  
  620. !OPTION-D!
  621. 18XS(98)
  622. EE(u) B #K RG(o)
  623. JP"ADD_PROJECT"
  624.  
  625. !OP-D-1!
  626. Z 0,.pRC(i)
  627. YWI .wl-1YEV
  628. RT(i)
  629. @OC"|Ri"
  630. JP"MAIN"
  631.  
  632. !OPTION-L!
  633. 17XS(98)
  634. EE(u) B #K RG(l)
  635. JP"ADD_PROJECT"
  636.  
  637. !OP-L-1!
  638. Z 0,.pRC(i)
  639. YWI .wl-1YEV
  640. RT(i)
  641. -:EK |Rkvcs.tmp
  642. @OC"|Ri > |Rkvcs.tmp"
  643. JP"OP-C-COMM"
  644.  
  645. !OPTION-M!
  646. 19XS(98)
  647. RR(j,f)
  648. EE(u) B #K RG(m)
  649. 1XS(83)
  650. JP"ADD_PROJECT"
  651.  
  652. !OP-M-1!
  653. Z 0,.pRC(i)
  654. YWI .wl-1YEV
  655. RT(i)
  656. -:EK |Rkvcs.tmp
  657. -:@OC"|Ri > |Rkvcs.tmp"
  658. JP"OP-C-COMM"
  659. !OP-M-2!
  660. .rc>0[
  661.     JP"OP-C-DISPLAY"
  662.     ]
  663. EE(s)
  664. B #S"=(noexec)>""
  665. B :$N"|<|W"
  666. .es=0[
  667. B [ $F"|<|N|W" ; 0KK ]
  668. B #:$S"|<|W""
  669. B #:$S"
  670.  
  671. "
  672. "
  673. ]
  674. B #RC(n)
  675. 1XS(79)
  676.  
  677. !MAKE_LOOP!
  678. .wt>1[ YWI ]
  679. [
  680.     -:EK |Rkvcs.tmp
  681.     EE(u) EQY
  682.     EE(n)
  683.     _B Q79-1L .eof[ JL ]
  684.     $N"|{|B,|>}" -.nC
  685.     .pXBB
  686.     .os<4[ -$N"|{|<,:,\}" .nC
  687.     ][ -$N"|{|<,/}" .nC
  688.     ]
  689.     .p,.bbRC(t)
  690.     0L .pXBB
  691.     :$N"|>" .pXBE
  692.     .bb,.beRC(u)
  693.     0L EM"echo"
  694.     ~.es [
  695.     EO 17 0
  696.     .rvXS(100)
  697.     -:@OC"|Ru"
  698.     EO 17 Q100
  699.     1XA(79)
  700.     JN
  701.     ]
  702.     .wl-1YEV RT(u)
  703.     EE(v) B #K
  704.     RG(t) B RM(f)
  705.     EQY EE(n)
  706.     (.rv<>0)[
  707.     :ED |Rp|Rt.vcs
  708.     ~.rv[
  709.         -:@OC"|Ru"
  710.         1XA(79)
  711.         _B Q79-1L .eof[ JL ]
  712.         .rc>0[ JP"CONTMAIN" ]
  713.         JN
  714.         ]
  715.     +:RL(y) |Rp|Rt.vcs
  716.     RR(t,f)
  717.     ]
  718.  
  719.     -:@OC"|Ru > |Rkvcs.tmp"
  720.     :ED |Rkvcs.tmp
  721.     ~.rv[ 1XA(79) JN ]
  722.     EE(g) EQY EE(h) EQY
  723.     EE(s) EZY EB |Rkvcs.tmp
  724.     2XS(96) M(y)
  725.     ~.rt(h)[ 1XA(79) JN ][
  726.     JP"OP-C-ERR"
  727.     ]
  728.     ]
  729.  
  730. 0XS(79)
  731. 0XS(93)
  732. JP"CONTMAIN"
  733.  
  734. !OPTION-C!
  735. 15XS(98)
  736. 0XS(93)
  737. EE(u) B #K RG(r)
  738.  
  739. !ADD_PROJECT!
  740. EE(#76) .of[
  741.     (Q80=-1)[ .pXS(80) ]
  742.     :EY
  743.     ]
  744. EE(@) .oa[ :EA ]
  745. .rt(a)==2[ EE(a) .oa[ :EA ] ]
  746. .rt(b)==2[ EE(b) .oa[ :EA ] ]
  747. .rt(c)==2[ EE(c) .oa[ :EA ] ]
  748. .rt(d)==2[ EE(d) .oa[ :EA ] ]
  749. .rt(e)==2[ EE(e) .oa[ :EA ] ]
  750. EE(u) B
  751. 10[
  752.     N"-proj"
  753.     .es_JL
  754.     ~.rt(w)[
  755.     EE(v) EQY EE(#76)
  756.     YEN :RQ(v)" Project file: "
  757.     ~.u(v)[ 4XS(96) M(y) ]
  758.     RF(v) |Rv
  759.     ~.u(v)[ JP"MAIN" ]
  760.     :ED |Rv
  761.     ~.rv[ JP"MAIN" ][ RR(v,w) ]
  762.     EE(#76) EB|Rw -V
  763.     ]
  764.     EE(u)
  765.     EM".ext"
  766.     ~.es[
  767.     -9D +RG(w)
  768.     ][
  769.     -5D +RG(w)
  770.     .pXBB
  771.     -4C N"."
  772.     ~.es[ .p-1,.bbK ]
  773.     ]
  774. ]
  775.  
  776. (Q98=17)[ JP"OP-L-1" ]
  777. (Q98=18)[ JP"OP-D-1" ]
  778. (Q98=19)[ JP"OP-M-1" ]
  779.  
  780. !OP-C-1!
  781. .wt>1[ YWI ]
  782. .wl-1YEV
  783. 0XS(96) M(y) YT" - " RT(u)
  784. -:EK |Rkvcs.tmp
  785. 1XS(96) M(y)
  786.  
  787. !OP-C-COMM!
  788. :ED |Rkvcs.tmp
  789. ~.rv[
  790.     YWS(@) Q87YEA YEC
  791.     3YEV YT"
  792.         No Error file created or
  793.         cannot run specified compiler/tool.
  794.  
  795.         Possible causes:        Can't find "
  796.     (.os<3)[ YT"COMMAND.COM" ][ YT/"shell"/ ]
  797.     YT"
  798.                                 Insufficient free memory
  799.                                 Compiler/tool not found" YEN
  800.     JP"CONTBEEP"
  801.     ]
  802. EE(s) EZY EB |Rkvcs.tmp
  803. _B #$S"""
  804. _B #\S"\r"
  805. "
  806. _B
  807.  
  808. (Q98=15 | Q98=25)[ JP"OP-C-ERR" ]
  809. (Q98=19)[ JP"OP-M-2" ]
  810.  
  811. !OP-C-DISPLAY!
  812. ~.ws(h)[ YWI
  813.     (.wb=2)[ 0YWB(h) 1 ][ YWB(h) 1 ]
  814.     ]
  815. YWS(@) Q87YEA
  816. EE(s) -V
  817. YWS(h) Q89YEA YEC YT'Press "V" to view output; any other key to continue: '
  818. XK(100)"" Q100&95XS(100)
  819. Q100="V[
  820.     YWS(h) Q89YEA YEC
  821.     YT"View file; press ESC to return to main menu"
  822.     V
  823.     ]
  824.  
  825. JP"MAIN"
  826.  
  827. !OP-C-ERR!
  828. 1XS(93)
  829. _Z 13EI 10EI
  830. _B
  831. RE(t)
  832. EE(g) EQY EE(h) EQY
  833. 2XS(96)
  834. EE(s) M(y)
  835. ~.u(h)[ JP"OP-C-DISPLAY" ]
  836. EE(#76) .of[
  837.     (Q80=-1)[ .pXS(80) ]
  838.     :EY
  839.     ]
  840. 2XS(96)    EE(s) _B
  841.  
  842. ~.ws(h)[ YWI
  843.     (.wb=2)[ 0YWB(h) 1 ][ YWB(h) 1 ]
  844.     ]
  845. YWS(@) Q87YEA
  846.  
  847. #[
  848.     0XS(75)
  849.     EE(g) EQY EE(h) EQY
  850.     EE(s) M(y)
  851.     ~.u(h)[
  852.     YWS(@) YWB(e) 1 YWS(e) Q90YEA YEC
  853.     YT"No more errors"
  854.     EE(#76) .of[ :EX ] RE(t)
  855.     ][
  856.     .rt(g)[
  857.         EE(g) B
  858.         .os<4[ #$S"/"\" B ]
  859.         RM(t) .rv>0[
  860.         EE(#76) .of[ :EY ]
  861.         EB |Rg
  862.         ]
  863.         ][
  864.         EE(#76) .of[ :EY ]
  865.         ]
  866.     RR(g,t)
  867.     EE(h)
  868.     Z -C (.c<>10)[ C ][
  869.         -C (.c<>13)[ C ]
  870.         ]
  871.     2D
  872.     .lnXS(94)
  873.     Q94XS(97) B
  874.     Q97[
  875.         $N"|>"
  876.         ((.cn+1)/.wc)XA(94)
  877.         :L
  878.         ]
  879.     (Q94>8)[ 8XS(94) ]
  880.     YWS(@) YWB(e) Q94
  881.     YWS(e) Q90YEA YEC RT(h)
  882.     EE(v) EQY
  883.     EE(#76) 6XS(96) M(y)
  884.     80[ .cn>=Q75JL 1C ]
  885.     ]
  886.  
  887. !OP-C-4!
  888.     EE(#76) YWS(@) Q87YEA
  889.     .u(h)>0[
  890.     ~.u(g)[
  891.         YWS(@) YEC YT"
  892.     Error not related to a particular source file.
  893.  
  894.     See error message below or press B to examine error list."
  895.         ][
  896.         YWS(h) Q89YEA YEC
  897.         YT"Edit file; press <Esc> for other options"
  898.         V
  899.         ]
  900.     ]
  901.     #[
  902.     YWS(h) Q89YEA YEC YT" Select option from status line"
  903.     Q79>0[
  904. +:XK(84)" [N]ext  [P]rev  [F]irst  [B]rowse  [M]ake  [R]etry  [S]kip  E[X]it to Menu "
  905.         ][
  906. +:XK(84)" [N]ext  [P]revious  [F]irst  [B]rowse  [R]ecompile  E[X]it to Menu "
  907.         ]
  908.     Q84&95XS(84)
  909.     Q84=27[ JP"OP-C-4" ]
  910.     Q84="N[ 2XS(96) JL ]
  911.     Q84="P[ 3XS(96) JL ]
  912.     Q84="F[ 2XS(96) EE(s) _B JL ]
  913.     Q84="B[
  914.         YWD(e)
  915.         YWS(h) Q89YEA YEC
  916.         YT"Position on desired error and press <Esc> "
  917.         YWS(@) EE(s) 2XS(96) V 0L JL
  918.         ]
  919.  
  920.     ((Q84="R) | (Q84="E) | (Q84="X) | (((Q84="M) | (Q84="S)) & (Q79>0)))[
  921.         EE(#76) .oa[ :EA ]
  922.         ][
  923.         YA
  924.         JP"OP-C-4"
  925.         ]
  926.  
  927.     (((Q84="E) | (Q84="X)) & (Q79>0))[
  928.         0XS(79)
  929.         0XS(93)
  930.         ]
  931.  
  932.     (Q84="R) & (Q79=0)[
  933.         RE(t)
  934.         Q98=19[ JP"OPTION-M" ]
  935.         JP"OPTION-C"
  936.         ]
  937.  
  938.     (Q84="M)[
  939.         0XS(79)
  940.         0XS(93)
  941.            EE(n) EQY EE(s) EQY EE(#76)
  942.         JP"OPTION-M"
  943.         ]
  944.  
  945.     (Q84="S)[
  946.         1XA(79)
  947.         ]
  948.  
  949.     JP"MAIN"
  950.     ]
  951.  
  952.     .ws(e)>0[ YWD(e) ]
  953.     ]
  954.  
  955. JP"MAIN"
  956.  
  957. !ERROR!
  958. !CNFERROR!
  959. YWI
  960. -RA
  961. 0YYE
  962. YEN YT"Fatal compiler support error!" 2YEN
  963. RI(+t)"
  964.  
  965.            ERROR: Possible Compiler Support Configuration Error!
  966.      Check the COMPILE.CNF file for an incorrect path or default compiler.
  967.            (COMPILE.CNF will be loaded for you)"
  968.  
  969. RT(t) 2YEN
  970. XK(84)"Press any key to continue..."
  971. "AXS(85) 25[ EE(#85) EQY 1XA(85) ]
  972. EE(#76) .of[ EY ]
  973. EB |Rpcompile.cnf
  974. V
  975. JO
  976.